home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / bbs / Hydra11s.lha / HBBS / Source / Oberon / HBBSCommon.mod < prev    next >
Text File  |  1996-07-06  |  9KB  |  173 lines
  1. MODULE HBBSCommon;
  2.  
  3. IMPORT e:= Exec, s:= SYSTEM, R, bs:= BBSStructures;
  4.  
  5. CONST
  6.     LibraryName* = "HBBSCommon.library";
  7.  
  8. VAR
  9.     HBBSCommonBase*: e.LibraryPtr;
  10.  
  11. TYPE
  12.     StringListPtr* = POINTER TO ARRAY OF e.STRPTR;
  13.     IntPtr* = POINTER TO INTEGER;
  14.  
  15. PROCEDURE HBBSInitCommon* {HBBSCommonBase, -114H} ():BOOLEAN;
  16. PROCEDURE HBBSCleanUpCommon* {HBBSCommonBase, -11AH};
  17. PROCEDURE SafePutToPort* {HBBSCommonBase, -84H}
  18.         (message{R.A0}: e.MessagePtr; portName{R.A1}: e.STRPTR): LONGINT;
  19. PROCEDURE SendMessage* {HBBSCommonBase, -8AH}
  20.         (Msg{R.A0}: e.MessagePtr; portName{R.A1}: e.STRPTR): e.MessagePtr;
  21. PROCEDURE CountListItems* {HBBSCommonBase, -90H} (list{R.A0}: e.ListPtr): LONGINT;
  22. PROCEDURE FreeStrList* {HBBSCommonBase, -96H} (strList{R.A0}: e.ListPtr);
  23. PROCEDURE HBBSGimmeBBS* {HBBSCommonBase, -9CH} (): bs.BBSGlobalDataPtr;
  24. PROCEDURE HBBSSetBBS* {HBBSCommonBase, -0A2H} (B{R.A0}: bs.BBSGlobalDataPtr);
  25. PROCEDURE GetNode* {HBBSCommonBase, -0A8H} (lh{R.A0}: e.ListPtr; n{R.D0}: INTEGER): e.NodePtr;
  26. PROCEDURE GetNodeNum* {HBBSCommonBase, - 0AEH} (lh{R.A0}: e.ListPtr; node{R.A1}: e.NodePtr): INTEGER;
  27. PROCEDURE HBBSNodeDataPtr* {HBBSCommonBase, -0B4H} (nodenum{R.D0}: INTEGER): bs.NodeDataPtr;
  28. PROCEDURE HBBSLogError* {HBBSCommonBase, -0BAH}
  29.          (fileName{R.A0}: e.STRPTR;
  30.           errnum{R.D0}: LONGINT;
  31.           string{R.A1}: e.STRPTR;
  32.           errtype{R.D1}: LONGINT): LONGINT;
  33. PROCEDURE HBBSLoadConfig* {HBBSCommonBase, -0C0H}
  34.          (fileName{R.A0}: e.STRPTR; Flags{R.D0}: LONGINT): bs.CfgFileDataPtr;
  35. PROCEDURE HBBSFlushConfig* {HBBSCommonBase, -0C6H} (cfgFile{R.A0}: bs.CfgFileDataPtr);
  36. PROCEDURE HBBSSaveConfig* {HBBSCommonBase, -0CCH}
  37.         (cfgFile{R.A0}: bs.CfgFileDataPtr): e.LONGBOOL;
  38. PROCEDURE HBBSGetCfgNode* {HBBSCommonBase, -0D2H}
  39.         (cfgFile{R.A0}: bs.CfgFileDataPtr;
  40.          optionStr{R.A1}: e.STRPTR): bs.CfgItemDataPtr;
  41. PROCEDURE HBBSGetSetting* {HBBSCommonBase, -0D8H}
  42.         (cfgFile{R.A0}: bs.CfgFileDataPtr;
  43.          result{R.A1}: s.ADDRESS;
  44.          optionType{R.D0}: LONGINT;
  45.          optionStr{R.A2}: e.STRPTR;
  46.          multi{R.D1}: e.LONGBOOL): LONGINT;
  47. PROCEDURE HBBSCreateConfig* {HBBSCommonBase, -0DEH}
  48.         (fileName{R.A0}: e.STRPTR): bs.CfgFileDataPtr;
  49. PROCEDURE HBBSRemoveCfgItem* {HBBSCommonBase, -0E4H}
  50.         (cfgFile{R.A0}: bs.CfgFileDataPtr;
  51.          itemName{R.A1}: e.STRPTR): BOOLEAN;
  52. PROCEDURE HBBSAddCfgItem* {HBBSCommonBase, -0EAH}
  53.         (cfgFile{R.A0}: bs.CfgFileDataPtr;
  54.          itemName{R.A1}: e.STRPTR;
  55.          params{R.A2}: e.STRPTR): BOOLEAN;
  56. PROCEDURE HBBSResetNodeData* {HBBSCommonBase,  -0F0H} (node{R.A0}: bs.NodeDataPtr);
  57. PROCEDURE HBBSrterror* {HBBSCommonBase, -0F6H} (str{R.A0}: e.STRPTR);
  58. PROCEDURE HBBSRunDOSCMD* {HBBSCommonBase, -0FCH}
  59.         (command{R.A0}: e.STRPTR; ASYNC{R.D0}: BOOLEAN);
  60. PROCEDURE HBBSDoErrorMessage* {HBBSCommonBase, -102H}
  61.         (num{R.D0}: LONGINT; node{R.D1}: LONGINT; errstr{R.A0}: e.STRPTR);
  62. PROCEDURE FreeStr* {HBBSCommonBase, -1EH}(str{R.A0}: e.STRPTR);
  63. PROCEDURE DupStr* {HBBSCommonBase, -24H} (str{R.A0}: e.STRPTR): e.STRPTR;
  64. PROCEDURE FreeAndSet* {HBBSCommonBase, -2AH}
  65.         (varname{R.A0}: StringListPtr; newstr{R.A1}: e.STRPTR): e.STRPTR;
  66. PROCEDURE CheckBoolean* {HBBSCommonBase, -30H} (str{R.A0}: e.STRPTR): e.LONGBOOL;
  67. PROCEDURE NewStrNode* {HBBSCommonBase, -36H}
  68.         (str{R.A0}: e.STRPTR; list{R.A1}: e.ListPtr): LONGINT;
  69. PROCEDURE UpperCase* {HBBSCommonBase, -3CH} (str{R.A0}: e.STRPTR);
  70. PROCEDURE UpCase* {HBBSCommonBase, -42H} (str{R.A0}: e.STRPTR): e.STRPTR;
  71. PROCEDURE Position* {HBBSCommonBase, -48H}
  72.         (substr{R.A0}: e.STRPTR; str{R.A1}: e.STRPTR): INTEGER;
  73. PROCEDURE iPosition* {HBBSCommonBase, -4EH}
  74.         (substr{R.A0}: e.STRPTR; str{R.A1}: e.STRPTR): INTEGER;
  75. PROCEDURE StrFCpy* {HBBSCommonBase, -54H}
  76.         (dest{R.A0}: e.STRPTR; source{R.A1}: e.STRPTR; from{R.D0}: INTEGER);
  77. PROCEDURE StripCR* {HBBSCommonBase, -5AH} (s{R.A0}: e.STRPTR);
  78. PROCEDURE StripComments* {HBBSCommonBase, -60H} (s{R.A0}: e.STRPTR);
  79. PROCEDURE StripSpaces* {HBBSCommonBase, -66H} (s{R.A0}: e.STRPTR);
  80. PROCEDURE Replace* {HBBSCommonBase, -6CH} (dest{R.A0}: e.STRPTR; compare{R.A1}: e.STRPTR; from{R.A2}: e.STRPTR; to{R.A3}: e.STRPTR);
  81. PROCEDURE GetParams* {HBBSCommonBase, -72H}
  82.         (dest{R.A0}: e.STRPTR; source{R.A1}: e.STRPTR): BOOLEAN;
  83. PROCEDURE GetItem* {HBBSCommonBase, -78H}
  84.         (dest{R.A0}: e.STRPTR; source{R.A1}: e.STRPTR): BOOLEAN;
  85. PROCEDURE GetNumber* {HBBSCommonBase, -7EH} (num{R.A0}: IntPtr; item{R.A1}: e.STRPTR);
  86. PROCEDURE CVTUCase* {HBBSCommonBase, -108H} (str{R.A0}: e.STRPTR);
  87. PROCEDURE AssignOk* {HBBSCommonBase, -10EH} (checkMe{R.A0}: e.STRPTR): BOOLEAN;
  88. PROCEDURE SubmitTimer* {HBBSCommonBase, -120H}
  89.         (TSD{R.A0}: bs.TimerSetupDataPtr;
  90.          Seconds{R.D0}:LONGINT;
  91.          MicroSeconds{R.D1}: LONGINT): bs.TimerDataPtr;
  92. PROCEDURE AbortTimer* {HBBSCommonBase, -126H}
  93.         (TSD{R.A0}: bs.TimerSetupDataPtr; CTD{R.A1}: bs.TimerDataPtr);
  94. PROCEDURE CheckTimer* {HBBSCommonBase, -12CH}
  95.         (TSD{R.A0}: bs.TimerSetupDataPtr; CTD{R.A1}: bs.TimerDataPtr): BOOLEAN;
  96. PROCEDURE CleanupTimer* {HBBSCommonBase, -132H} (TSD{R.A0}: bs.TimerSetupDataPtr);
  97. PROCEDURE InitTimer* {HBBSCommonBase, -138H} (): bs.TimerSetupDataPtr;
  98. PROCEDURE PathOk* {HBBSCommonBase, 13EH} (str{R.A0}: e.STRPTR): BOOLEAN;
  99. PROCEDURE HBBSLoadUser* {HBBSCommonBase, -144H}
  100.         (ID{R.D0}: LONGINT;
  101.          handle{R.A0}: e.STRPTR;
  102.          realName{R.A1}: e.STRPTR;
  103.          user{R.A2}: bs.UserDataPtr): BOOLEAN;
  104. PROCEDURE HBBSValidUserHandle* {HBBSCommonBase, -14AH}
  105.         (userHandle{R.A0}: e.STRPTR;
  106.          FillUser{R.A1}: bs.UserDataPtr): e.LONGBOOL;
  107. PROCEDURE HBBSFindTotalUsers* {HBBSCommonBase, -150H} (): LONGINT;
  108. PROCEDURE LoadPrivateData* {HBBSCommonBase, -156H} (): BOOLEAN;
  109. PROCEDURE UpdatePrivateData* {HBBSCommonBase, -15CH};
  110. PROCEDURE HBBSAddUser* {HBBSCommonBase, -162H} (user{R.A0}: bs.UserDataPtr): BOOLEAN;
  111. PROCEDURE HBBSInitUserData* {HBBSCommonBase, -168H} (User{R.A0}: bs.UserDataPtr);
  112. PROCEDURE strNcpy* {HBBSCommonBase, -16EH}
  113.         (dest{R.A0}: e.STRPTR; source{R.A1}: e.STRPTR; chars{R.D0}: INTEGER);
  114. PROCEDURE HBBSListeName* {HBBSCommonBase, -174H}
  115.         (ListName{R.A0}: e.ListPtr;
  116.          ItemNum{R.D0}: INTEGER): e.STRPTR;
  117. PROCEDURE FreeFileTags* {HBBSCommonBase, -17AH} (ND{R.A0}: bs.NodeDataPtr);
  118. PROCEDURE HBBSLoadFile* {HBBSCommonBase, -180H} (fileName{R.A0}: e.STRPTR): e.ListPtr;
  119. PROCEDURE HBBSSaveFile* {HBBSCommonBase, -186H}
  120.         (fileName{R.A0}: e.STRPTR; list{R.A1}: e.ListPtr): BOOLEAN;
  121. PROCEDURE HBBSCreateList* {HBBSCommonBase, -18CH} (): e.ListPtr;
  122. PROCEDURE RemoveSpaces* {HBBSCommonBase, -192H} (string{R.A0}: e.STRPTR);
  123. PROCEDURE strFTCpy* {HBBSCommonBase, -198H}
  124.         (dest{R.A0}: e.STRPTR;
  125.          source{R.A1}: e.STRPTR;
  126.          from{R.D0}: INTEGER;
  127.          toPos{R.D1}: INTEGER);
  128. PROCEDURE HBBSSaveUserData* {HBBSCommonBase, -19EH} (User{R.A0}: bs.UserDataPtr);
  129. PROCEDURE HBBSGetDate* {HBBSCommonBase, -1A4H} (dateStr{R.A0}: e.STRPTR);
  130. PROCEDURE HBBSAddCfgItemQuick* {HBBSCommonBase, -1AAH}
  131.         (cfgFile{R.A0}: bs.CfgFileDataPtr;
  132.          ItemName{R.A1}: e.STRPTR;
  133.          Params{R.A2}: e.STRPTR): e.LONGBOOL;
  134. PROCEDURE HBBSSaveCallsData* {HBBSCommonBase, -1B0H};
  135. PROCEDURE HBBSLoadCallsData* {HBBSCommonBase, -1B6H};
  136. PROCEDURE HBBSGetTime* {HBBSCommonBase, -1BCH} (timeStr{R.A0}: e.STRPTR);
  137. PROCEDURE HBBSGetDateStr* {HBBSCommonBase, -1C2H} (dateStr{R.A0}: e.STRPTR; t{R.D0}: LONGINT);
  138. PROCEDURE HBBSDateStrFromTM* {HBBSCommonBase, -1C8H}
  139.         (dateStr{R.A0}: e.STRPTR; tm{R.A1}: bs.TimerSetupDataPtr);
  140. PROCEDURE HBBSDateStrToTM* {HBBSCommonBase, -1CEH}
  141.         (dateStr{R.A0}: e.STRPTR; tm{R.A1}: bs.TimerSetupDataPtr): e.LONGBOOL;
  142. PROCEDURE HBBSCopyFile* {HBBSCommonBase, -1D4H}
  143.         (fromFile{R.A0}: e.STRPTR;
  144.          toFile{R.A1}: e.STRPTR;
  145.          BufSize{R.D0}: LONGINT): e.LONGBOOL;
  146. PROCEDURE HBBSNodesInList* {HBBSCommonBase, -1DAH} (list{R.A0}: e.ListPtr): LONGINT;
  147. PROCEDURE HBBSAppendStrToFile* {HBBSCommonBase, -1E0H}
  148.         (FileName{R.A0}: e.STRPTR; String{R.A1}: e.STRPTR): e.LONGBOOL;
  149. PROCEDURE HBBSCreateNode* {HBBSCommonBase, -1E6H}
  150.         (nameStr{R.A0}: e.STRPTR; nodeSize{R.D0}: LONGINT): e.NodePtr;
  151. PROCEDURE HBBSFreeNode* {HBBSCommonBase, -1ECH}
  152.         (node{R.A0}: e.NodePtr; RemoveIt{R.D0}: e.LONGBOOL);
  153. PROCEDURE HBBSFreeListNodes* {HBBSCommonBase, -1F2H} (list{R.A0}: e.ListPtr);
  154. PROCEDURE HBBSSendOLM* {HBBSCommonBase, -1F8H}
  155.         (FromNode{R.D0}: LONGINT;
  156.          FromPrg{R.A0}: e.STRPTR;
  157.          ToNode{R.D1}: LONGINT;
  158.          Message{R.A1}: e.STRPTR;
  159.          Pri{R.D2}: INTEGER): e.LONGBOOL;
  160. PROCEDURE FGetR* {HBBSCommonBase, -1FEH}
  161.         (FH{R.A0}: e.BPTR; Buffer{R.A1}: s.ADDRESS; BufferLen{R.D0}: LONGINT): BOOLEAN;
  162. PROCEDURE HBBSFindNode* {HBBSCommonBase, -204H} (list{R.A0}: e.ListPtr; str{R.A1}: e.STRPTR): e.NodePtr;
  163. PROCEDURE HBBSFindNodeNum* {HBBSCommonBase, -20AH} (list{R.A0}: e.ListPtr; str{R.A1}: e.STRPTR): LONGINT;
  164. PROCEDURE HBBSHandleNameOK* {HBBSCommonBase, -210H} (checkstr{R.A0}: e.STRPTR): e.LONGBOOL;
  165.  
  166. BEGIN
  167.     HBBSCommonBase:= e.OpenLibrary(LibraryName, 0);
  168. CLOSE
  169.     IF HBBSCommonBase # NIL THEN e.CloseLibrary(HBBSCommonBase) END;
  170. END HBBSCommon.
  171.  
  172.  
  173.